home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr52
/
tbar.zip
/
INCLUDE1.CH
< prev
Wrap
Text File
|
1993-04-01
|
3KB
|
65 lines
/*┌──────────────────────────────────────────────────────────────────────┐
▌│ Program Name: INCLUDE1.CH Language: Clipper 5.0 │
▌│ Date Created: 07/03/92 Author: Kevin S Gallagher │
▌│ Time Created: 13:44:58 │
▌└──────────────────────────────────────────────────────────────────────┘
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ */
#include "box.ch"
#include "inkey.ch"
#include "setcurs.ch"
#include "ftint86.ch"
#include "Dbstruct.ch"
#include "directry.ch"
#define CURDRV FT_DEFAULT() //── get drivename[d:]
#define BCOLOR 'W/B,W+/BR,N/N,N/N,N/W,+W/N,+W/N,+W/N,N/W,N/BG'
#define Panel( lHelp ) EVAL( { | cDefCol | cDefCol := SETCOLOR( 'w+/n' ),;
DISPBOX( 0, 0, MAXROW(), 79, '▓▓▓▓▓▓▓▓▓', 'b+/b' ),;
DEVPOS( MAXROW(), 0 ),;
IF( lHelp, DEVOUT( PADL( 'F1 - Help', 80 ),"W+/B*" ),;
QQOUT() ), SETCOLOR( cDefCol ) } );;
DEVPOS( 0, 0 );;
DEVOUT(replicate(" ",80),"BG/BG");;
DEVPOS( MAXROW(), 0 );;
DEVOUT( PADR( " " + CURDRV + ":\" + CURDIR( CURDRV ), 80 ), "W+/BG")
#define Shad( nTR, nTC, nBR, nBC, lDoub, cClrs ) ;
DISPBOX( nTR+1, nTC+2, nBR+1, nBC+2, '░░░░░░░░░', 'w+/n' );;
DISPBOX( nTR, nTC, nBR, nBC, IF( lDoub, '╔═╗║╝═╚║ ',;
SPACE( 9 ) ), IF( EMPTY( cClrs ), NIL, cClrs ) )
#define BoxShad(nTR,nTC,nBR,nBC,cClrs );
RESTSCREEN(nTR+1,nTC+2,nBR+1,nBC+2,;
TRANSFORM(SAVESCREEN(nTR+1,nTC+2,nBR+1,nBC+2),;
REPLICATE('X',(nBR-nTR+1) * (nBC-nTC+1))));;
DISPBOX(nTR-1,nTC-1,nBR,nBC,'╔═╗║╝═╚║ ',cClrs)
#define SaveFullScreen() cFullScreen := SAVESCREEN( 0, 0, 24, 79 )
#define RestFullScreen() RESTSCREEN( 0, 0, 24, 79, cFullScreen )
#define WaitKey( lCont );
INKEY( 5 ); DEVPOS( 24, 0 ); DEVOUT( 'Press any key to ');;
DEVOUT( IF( lCont, 'Continue . . .', 'Exit . . .') );;
INKEY( 60 )
#define Range( xVar, xExpr1, xExpr2 );
( xVar >= MIN( xExpr1, xExpr2 ) .AND.;
xVar <= MAX( xExpr1, xExpr2 ) )
#define Beep() Tone(300,3)
#define PressAnyKey();
EVAL( { | cDefCol | cDefCol := SETCOLOR( 'w+/n' ),;
DEVPOS( MAXROW(), 52 ), DEVOUT( 'Press any key to continue...'),;
SETCOLOR( cDefCol ), INKEY( 0 ) } )
#xcommand STABILIZE <x> => DISPBEGIN();;
WHILE !(<x>:stabilize());;
END;;
DISPEND()
#command DEFAULT <p> TO <val> [,<pn> TO <valn>] ;
=> <p> = iif(<p> = NIL, <val>, <p>) ;
[;<pn> = iff(<pn> = NIL, <valn>, <pn>)]